Imports System.Windows.Forms
Public Class frmReport
    Inherits Form
    Private dsCollectionColumns As DataSet
    Private iAddJustColumns As Integer
    Private sTitle As String

    Public Property CollectionColumns() As DataSet
        Get
            Return dsCollectionColumns
        End Get
        Set(ByVal value As DataSet)
            dsCollectionColumns = value
        End Set
    End Property

    Public ReadOnly Property AddJustColumns() As Integer
        Get
            Return Me.optDieuChinh.CheckedIndex
        End Get
    End Property

    Public Property Title() As String
        Get
            Return Me.txtTieuDe.Text
        End Get
        Set(ByVal value As String)
            Me.txtTieuDe.Text = value
        End Set
    End Property

    Private Sub btnThoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnThoat.Click
        Me.Close()
    End Sub

    Private Sub frmReport_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        With grdColumns
            .DataSource = dsCollectionColumns
            .DataMember = "tbl_DieuChinh"
            .DataBind()
        End With
    End Sub

    Private Sub chkChon_CheckedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles chkChon.CheckedValueChanged
        Dim oRows As Infragistics.Win.UltraWinGrid.UltraGridRow

        For Each oRows In Me.grdColumns.Rows
            oRows.Cells("Chon").Value = Me.chkChon.Checked
        Next

    End Sub

End Class